home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 25 / CU Amiga Magazine's Super CD-ROM 25 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-08].iso / CUCD / Magazine / Issues / TwistDemo / Organiser / dialnumberwork.rexx < prev    next >
OS/2 REXX Batch file  |  1995-02-22  |  300b  |  15 lines
  1. /* This arexx script dials a phone number if  a modem is connected*/
  2. GETDBFORMFIELD
  3.  
  4. ADDRESS twist
  5. PARSE ARG dbfilename,rela_x,rela_y,shiftkeys
  6. OPEN dbfilename
  7. options results
  8. GETDBFORMMODE
  9.  
  10. GETDBFORMFIELD "telwork"
  11. number = "atdt" || result
  12. open('outfile','SER:','W')
  13. writeln('outfile',number)
  14. exit
  15.